Night Owl 6

home *** CD-ROM | disk | FTP | other *** search

/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / tl_form.zip / TL_FORM.GEN < prev

Wrap

Text File | 1990-08-19 | 23KB | 364 lines

Format (.fmt) File Template with POPUP field validation ------------------------------------------------------- Version 1.1.19 Ashton-Tate (c) 1987, 1988, 1989, 1990 Written by Kirk J. Nason & Bill Ramos Modified by Tony Lima 08/18/90 to allow REQUIRED clause with VALID. To add a REQUIRED, insert the following before your other logical conditions: 'REQ'='REQ' .AND. <rest of logical condition here> Note that this works because 'REQ'='REQ' always returns a logical .T. The template looks for this string, writes the word REQUIRED to the FMT file, then resets the logical condition to only keep everything beyond the blank space after the .AND. WARNING: BE SURE YOU USE EXACTLY THE SYNTAX SHOWN HERE, INCLUDING ALL BLANK SPACES. This template will support POPUPs for VALID clause field validations and context sensitive help for each field. Example: In "ACCEPT value when" under "Edit options" enter, "POPUP" = "vendor->vendor_id ORDER vendor_id REQ SHADOW" -------------------------------------------------------- this will activate a popup if the data entered is invalid for that field and will also make the field REQUIRED. Explanation of the POPUP string follows: POPUP Indicates that a popup will be used for this field. vendor->vendor_id Indicates the .DBF to open and FIELD to use as validation. ORDER vendor_id Indicates which INDEX TAG to SEEK in. REQ Indicates the FIELD requires data (can't be empty). Leave REQ out if the field is NOT required. OPTIONAL! SHADOW Use shadowing effect on popups OPTIONAL! NOTE: The POPUP string must be entered with the quotes as in the example. -------------------------------------------------------------------------------- Explanation of the Context Sensitive Help file follows: If you want to create your own help file, here is the structure that is required. Structure for Help Database (.dbf): <first 6 chars. of the format file name>_H.dbf Field Field Name Type Width Dec Tag ------------------------------------------------- 1 FLD_NAME Character 10 Yes Field name to lookup on F1 2 FLD_HEADNG Character 25 No Heading to show user on window 3 FLD_HELP Memo 10 No Help text to show user ------------------------------------------------- Total 46 ε¡Ω (xåY▐»╛∩@Oñ:.F @Oñ::@TD;86@U{;(=8m@Vÿ;8n@W¬;;@W¬;@Y┤;.è @Y┤;:@]I<8m@^f<8n@_z<;@_z<@aä<.² @aä<:@d∞<6Ω @e=8;8<8?@f/=>@f/=@g9=;@hK=<@hK=@jU=.~@jU=:@o└=>@o└=@p┌=5g808n@r>.*@r>@s><@t><@t>@v%>.╘@v%>:@xè>8<8=8<8>@y═>;<@y═>@{╫>.!@{╫>:@}:?/.@}:?@}:?;@~Z?<@~Z?@MW╡1ò@N¢ :Can't use FORM.GEN on non-form objects. Press any key ...8N@O╗.▐@P╩@u2 80@vC@wO @x^ @yé@{« "9U7@9]D/▐@üA9;3@éü9²@â└9¢@ä⌡9ò @à+9δ%@å}9ç2@ê├2╔@ë╓ )Form design was empty. Press any key ...8N@è≈@ï .FMO8{@î@ì%;@ö╖.ë@ö╖: *-- Format file initialization code -------------------------------------------- *-- Some of these PRIVATE variables are created based on CodeGen and may not *-- be used by your particular .fmt file PRIVATE lc_talk, lc_cursor, lc_display, lc_status, lc_carry, lc_proc,; ln_typeahd, gc_cut IF SET("TALK") = "ON" SET TALK OFF lc_talk = "ON" ELSE lc_talk = "OFF" ENDIF lc_cursor = SET("CURSOR") SET CURSOR ON @⌐├ 439û88./8 *-- This form was created in @½Θ9û8? mode lc_display = SET("display") IF .NOT. "43" $ lc_display && In 25 line mode IF "EGA" $ lc_display *-- If EGA is in lc_display try EGA43 SET DISPLAY TO EGA43 ELSE *-- Otherwise try MONO43 SET DISPLAY TO MONO43 ENDIF ENDIF @╖z lc_status = SET("STATUS") *-- SET STATUS was @╗╢/╙ON when you went into the Forms Designer. IF lc_status = "OFF" SET STATUS ON @┐.4@┐OFF when you went into the Forms Designer. IF lc_status = "ON" SET STATUS OFF @├zENDIF @╔`j@╩{8F@╩{8I0V9H@╦ÄX/Ö,>@╦Ä@╠┼@80 M2G¬/G6G@╬, wndow , *-- Window for memo field @╤[=9É?. DEFINE WINDOW @╥Æ9α??@╙╢@╘└,.^@╘└@╒╠8B@╫∩/σ lc_carry = SET("CARRY") *-- Fields to carry forward during APPEND. SET CARRY TO @█9 9vB? @▌Y @▀e 9├F@αé /ó ON KEY LABEL F2 ?? chr(7) lc_proc = SET("procedure") && Store procedure file name SET PROCEDURE TO u_@σ≤ (8<? @τ!@Φ(!9tG@ΘG!/y0Ilc_proc = SET("procedure") && Store procedure file name SET PROCEDURE TO u_@δ▓!(8<? @∞┘!ON KEY LABEL F1 DO Help WITH VARREAD() @ε"@∩"<@±@"<@±@"@⌠î".â @⌠î": *-- @ SAY GETS Processing. ----------------------------------------------------- *-- Format Page: @·# ? @²W# Φ@■k#8F@■k#8I0l ½W9ô9@ │#9H@╦#/╜READ *-- Format Page: @╓# ? @⌡#@$=1Σj2─@ O$?2?*-- Calculated field: @v$=9É? - L? @╣$@┼$?2î*-- Memory variable: @ε$=9É? @%@ @,%ß9µ ?,]9µ? @j%@t%>2≈@ @á%9ï@?@╣%@╚%. @ß%SAY @ 0'_8- 6╩@!S'_862wCHR(@"y'_8-?) @#Æ'.┐@#Æ'REPLICATE(CHR(@$í'_8-?), _86?) @%╫'@'≥'.E@'≥'_8< "2@+╜( [@,α( ]>@,α(@-≡(_? @/\) ">@/\)@0i)9,??@1|).A @1|)@2Ä)áí9m>?@3║)9,??@4╬).A @4╬)@5α)W0╨SAY @7*?20@9}*M@:«*8F@:«*8I0M?@;╬*,.⌡@;╬* @?Y+.î@?Y+?2Q .h@?Y+ m->@?Y+@@Ñ+>=9É? @A╪+@BΦ+9Σ5/┼PICTURE "@C ,9?%" @D-,@E=,.α@E=,GET @G_,?2■ .@G_, m->@G_,@H¿,>=9É? @I╒,@80 M2╕¬/╕@J-6w,>@J-@KD-¬2£OPEN @KD-WINDOW wndow? @Lë-@MÖ-9Σ5/±PICTURE "@N╗-9y$" @O▐-@Pε-O0P/`@Pε-; RANGE @R..O?P/V,P?@R.. @Sr.@Té.S/╟; @V│. POPUPS878=8. 22l@W⌡. 7Picklist coordinates exceed column 79 - move field left9a6/l VALID @[╞/S9M/5REQUIRED @[╞/@\ /=9║L?( =9É? ) @_T0.9@_T0 POPUPS878=8. 212@c╩0 'REQ'='REQ'S8=8.2 VALID REQUIRED @e1S8<? @hZ1.+@hZ1 VALID @i]1S? @kz1@lô1@m¬1@o┐1T/└; ERROR @r≡1 IIFT8=8.0â"@r≡1T?@s92 IIFT8=8.0╢"@s92 @tv2@uë2@v¿2R/; WHEN @x┘2R? @z⌡2@{3Q/H; DEFAULT @}63Q? @~R3@b3c/┘; MESSAGE @éí3 IIFc8=8.0£"@éí3c?@âτ3 IIFc8=8.0╧"@âτ3 @ä!4@à14@çQ49,??@êd4@ëz4.A @ëz4.V @èù4.A @èù47=>ejí. @èù4 @æ5,@Æ(5@ô55,.P@ô55@ö>5<@ûa5<@ûa5@Ö¡5.g$@Ö¡5:*-- Format file exit code ----------------------------------------------------- *-- SET STATUS was @₧16/║!ON when you went into the Forms Designer. IF lc_status = "OFF" && Entered form with status off SET STATUS OFF && Turn STATUS "OFF" on the way out @óπ6.a"@óπ6OFF when you went into the Forms Designer. IF lc_status = "ON" && Entered form with status on SET STATUS ON && Turn STATUS "ON" on the way out @ªà7ENDIF @¿ò7/û" SET CARRY &lc_carry. @½┬7SET CURSOR &lc_cursor. SET TALK &lc_talk. @«≈7 439û88./&#SET DISPLAY TO &lc_display. && Reset Screen size if changed @░]8@▒f8/t# RELEASE WINDOWS @│}886<? @┤╗8 RELEASE @╢╞8/ƒ#lc_carry,@╢╞8lc_talk,lc_fields,lc_status @╖9/σ# ON KEY LABEL F1 @║89@╗D90·#/6$@╗D9ON KEY LABEL F2 SET PROCEDURE TO (lc_proc) @┐û9*-- EOP: @└ú983?FMT @┴┼9<@├Θ9<@├Θ9@╞5:.-%@╞5::@╟P:Kü/╙$@Kü?@╚|: SKü8./╔$╖ü?@╚|: @╩╓:@╦σ: MKü8.@╠ ;/%┤ü?@╬0;.%@╬0;Jü?@╧J;@╨V;<@╤`;<@╤`;@╘¼;.┘%@╘¼;:@╒╟;Kü/Ö%@Kü?@╓≤; SKü8./Å%╖ü?@╓≤; @╪M<@┘\< MKü8.0╔%@┌ü<Jü?@█¢<@▄º<<@▌▒<<@▌▒<@α²<.u2@α²<:@πb=/e29┬E0!&@Σé=;@σ¢=@µ¼=9\4@τ─=?FUNCTION Empty && Determine if the passed argument is NULL PARAMETER x mtype = TYPE("x") DO CASE CASE mtype = "C" retval = (LEN(TRIM(x))=0) CASE mtype$"NF" retval = (x=0) CASE mtype = "D" retval = (" "$DTOC(x)) ENDCASE *-- EOP: empty RETURN (retval) @°? @·8? j@ⁿ^?8F@ⁿ^?8I042 POPUPS878=8. 22╪'.δ'@ⁿ^?@ⁿ^?@■░?9H@ε?/%2ß9µ@1@ ]9µ@i@½W9ô9@─@ 9a6/%2@A -N8V *8BFUNCTION @IA=9║L? PARAMETER fld_name PRIVATE ALL LIKE ??_* PRIVATE esckey, fld_name, rtn_fld ll_return = .F. @┘AS9M0═) IF empty(fld_name) && Not a required fiel cur.FLD_TEMPLATE RETURN (.T.) && if null field ENDIF @ªB EscKey = 27 && 27 represents the ESC key lc_alias = ALIAS() && Grab current workarea SELECT SELECT() USE @^CS9aI? ORDER S9J? AGAIN lc_exact = SET("EXACT") && Store value of EXACT SET EXACT ON @÷C@80 C2[+ fld_name = IIF( EMPTY( TRIM( fld_name)), fld_name, TRIM( fld_name)) @ vD SEEK fld_name SET EXACT &lc_exact. && Restore SET EXACT to org. value IF .NOT. FOUND() DEFINE POPUP @&ES9íK? FROM @'<E6p,@(iE?,? ; TO @)ÿE?,J86? ; @+ΩE.╧,@+ΩE?,? ; TO @,F?,J86? ; @-`F PROMPT FIELD @.rFS9∩J? ; MESSAGE @/úF 5[Select: ]+CHR(17)+CHR(196)+CHR(217)+[ Cancel: Esc]? ON SELECTION POPUP @1─FS9íK? DEACTIVATE POPUP @3G@80 C2╫- KEYBOARD TRIM(fld_name) @5iG SAVE SCREEN TO temp @7áGS9╢M/û.@8╙G 5Shadow coordinates exceed column 79 - move field left9a6/û. DO shadowg WITH @:HJ9∩K @<UH ACTIVATE POPUP @>sHS9íK? rtn_fld = PROMPT() && Get user choice from Piclist RELEASE POPUP @B·HS9íK? RESTORE SCREEN FROM temp IF LASTKEY() <> EscKey @ @GlI?,? GET rtn_fld @HíI9Σ5/⌠/PICTURE "@I╞I9y$" @J∞I9,??@KJ CLEAR GETS REPLACE @O.J<9É?->=9É? WITH @P|J@80 C2y0rtn_fld @R│J.û0@R│JVAL(rtn_fld) @T╤J ll_return = .T. ELSE ll_return = .F. @Z%KS9M0j1 IF EMPTY(fld_name) && Not a required field, so return ll_return = .T. ENDIF @a█K ENDIF ELSE ll_return = .T. ENDIF USE SELECT (lc_alias) && Go back to the edit file *-- EOP: @lL=9║L? RETURN (ll_return) @p┐L@q╒L,.ƒ'@q╒L@rΩL -N8V *8B @tM@u'M<@wOM<@wOM@z¢M.)3@z¢M:@Ç}N/±20▐2@üùN9┬E0╦2@é┤N;@â╩N@à∙N9\4@åO@êEO9@P@ëVO@è]O03/3@îÿO9oN@ì░O@Ä╖O<@Å└O<@Å└O@ÆP.J4@ÆP:@ö=P *P8V8B*-- Name.......: @òfP83?FMT *-- Date.......: @ûÉP8M8<87? *-- Version....: dBASE IV, Format @ù└Pû?.1 *-- Notes......: Format files use "" as delimiters! @Ö&Q *P8V8B@ÜNQ<@ÜNQ@¥ÜQ.╥5@¥ÜQ:@ƒ╙Q -N8V *8B*-- Name....: @áⁿQ*?u_(8<88?.PRG *-- Date....: @í7R8M8<87? *-- Version.: dBASE IV, Procedure for Format @óbRû?.1 *-- Notes...: Procedure file for VALID POPUPs and/or Context Sensitive Help *-- ........: for @ñδR83?FMT @ÑS -N8V *8B@ª;S<@ª;S@⌐çS.O6@⌐çS:@¬áSJü/:6@ü80 D1:6@½ßS@ü80 M1:6@¼%T;@«CT;@░bT<@░bT@│«T.C7@│«T:@╣NV]ü9µJü86P4.7@╗╜V/!79@╝ⁿV8o@╜W =ü Error on Field: =9⌡ @╛PW9⌡ @┐tW Press any key ...8N@└ÅW@┴₧W;@├╝W;@┼█W<@┼█W@╚'X.ä8@╚'X:@╩wX8k@╦ùX4░7@═╩X'@╬πX$@╧∞X.▌7@╧∞X@╨Y@╤Y@╤Y@╘mY>'8k@╒ÉY238038@╫╤Y@╪ΘY>@╪ΘY@┘≤Y'2t80t8@█EZ*@▄]Z'>@▄]Z@▌gZ<@▐sZ<@▐sZ@ß┐Z.ü9@ß┐Z:@Σ[.:9@σ.[@µL[ MONO.g9@µL[@τk[ COLOR.g9@τk[@Φè[ EGA25.g9@Φè[@Θ¬[ MONO43.g9@Θ¬[@Ω╔[ EGA43.g9@Ω╔[7╡8╨8∞89%9@Ω╔[@δ╫[;@∞Ω[<@∞Ω[@∩6\.[>@∩6\:@ o^ @ô^Ç!@╖^!!0≈9@°^!/°9@°^@_p!@<_!@__!@é_!0C>@ ═_/r:>@ ═_@`1╢;1╢;@7`.b;@O`@i` n.ñ;@i`@â` b.ñ;@â`@¥` g.ñ;@¥`@╕` bg.ñ;@╕`@╥` r.ñ;@╥`@φ` rb.ñ;@φ`@a gr.ñ;@a@"a w.ñ;@"a7ª:╛:╓:ε:;;8;Q;@"a@<a.╙;@<a@Ra w>@Ra@sa/√;@ôa i>@ôa@│a/#<@╙a u>@╙a@!⌠a/K<@"b +>@"b@$1b/s<@%Qb *>@%Qb@)}b /1ß=1ß=@*▓b.ì=@+╦b@,∩b n.╧=@,∩b@-c b.╧=@-c@.7c g.╧=@.7c@/\c bg.╧=@/\c@0Çc r.╧=@0Çc@1Ñc rb.╧=@1Ñc@2╩c gr.╧=@2╩c@3εc w.╧=@3εc7▒<═<Θ<="=>=[=x=@3εc@5d.>@5d@6(d n>@6(d@85d/<>/<>@9Yd ,@:âd>@:âd@<Éd@=⌐d8T;@>─d<@>─d@Ae.?@Ae:@F╙e.ß>@GΣe@Hf .?@Hf@I#f DOUBLE .?@I#f CHR(@JIf ) .?@JIf7î>ñ>├>@JIf@KUf;@Lhf<@Lhf@O┤f.╬?@O┤f:@Rg @Sg864╗?@Vàg/ì? ;8U@W¡g>@W¡g@X╣g COLOR @YΦg >@YΦg@Z±g;@[h<@[h@^Oh.y@@^Oh:@aÖh wndow FROM 9ï@@b┌háüíü9m>@ci½üWü9ô9@dSi9,?@eti;@fçi<@fçi@i╙i.dB@i╙i:@lsj @o╪júü9µ@pk5σ@@qBk.ó@@qBk@rLk 2A@t}k>@t}k@uçk 2BA@w╕k>@w╕k@x┬k0kA@zφk@{÷k.òA@{÷k@|2l@|2l@~>l>úü9µ@ql ,óü9µ@Çºl TO úü9µÑü@üΦl4 B>@üΦl@ém ,óü9µñü@âlm;@äm<@äm@ç╦m.KD@ç╦m:@è%n@ï9nj@îVn8F@îVn8I0D@ìonX/D= ,86@Ä¬n= ,86@ÅτnΦ4]C@Éo SET CARRY TO 8B@Æ_o>@Æ_o@ôooK4æC ; 8B>@ôoo@ö╛o=9É@òΦo0▀C@ûp8B@ÿ=p@ÖLp.D@ÖLp ,8B@Ükp@Ükp@¢{p>@¢{p@£êp,.╜B@£êp@¥ùp ADDITIVE8B@₧░p<@ƒ║p<@ƒ║p@úq.░E@úq:@ÑHq8l@ªÄq@º╤q*(8Y0²D@¿≥q0╔D@¬(r(@½4r.εD@½4r :@¼br(@¼br@¡or>@¡or@«yr8=@»ÿr .FMT8C0¢E@░└r82 .FMT - can't be opened - possible read-only file. Press any key ...8N@▒s;@▓s@│ s;@┤.s<@┤.s@╖zs.▒F@╖zs:@║▐s* u_(8<88@╗$t .PRG8C0F@╝Yt .PRG - can't be opened - possible read-only file. Press any key ...8N@╜Öt;@╛¬t@└▌t .DBO8{@┬Mu;@├[u<@├[u@╞ºu.bG@╞ºu:@╚±uj@╔v8F@╔v8I0HG POPUPS878=8. 229G@╦[v.HG@╠hv@═sv,.∩F@═sv@╬~v;@╧Év<@╧Év@╥▄v.H@╥▄v:@╒cw828<*@╫⌐w _H .DBF8W/εG .DBT8W/εG@┘+x>@┘+x@┌5x;@█Fx<@█Fx@▐Æx.çH@▐Æx:@αyßü9µ 4rH@ßJy @Γvy ,@πëy;@ΣÜy@σñy;@µ»y<@µ»y@Θ√y.OI@Θ√y:@±Ñ{8=8.@≥╤{2τH@⌠| ;@⌡!|@≈/|<@°\|@∙z|86@·⌐|86@√╦|8<@ⁿΓ|;@ }<@ }@'~.⌠I@'~:@╢ ->@╩ =9ÖH@Ç8/@bÇ8.@¿Ç<@⌡Ç9É;@ü<@ü@cü.▌J@cü:@#½é ORDER 9ÖH@$°é 8.@%â2öJ@&6â86<@'Çâ@(ïâ.├J@(ïâ<@)┬â@)┬â@*╬â>9É;@+±â<@+±â@.=ä.ÅK@.=ä:@6îà ->@7│à9ÖH@8ⁿà 8.@: å2OK.sK@: å<@: å@<så9É;@=òå<@=òå@@ßå.▌K@@ßå:@Bç9∩J8< u_8>;@C`ç<@C`ç@F¼ç.¿L@F¼ç:@G■ç6SL@H&ê?,?,?,86? @Jïê.ÿL@Jïê?,?,?,86? @KΩê@L÷ê<@Më<@Më@PQë.±L@PQë:@Rçë8< u_9É;@S╛ë<@S╛ë@V è.ñM@V è:@Xvè REQ 8=8./5M.HM@Xvè@Xvè0ÖM@Y│è REQ"8=8./tM.çM@Y│è@Y│è@ZΣè/ÜM@ZΣè;@[φè<@[φè@^9ï.]N@^9ï:@`Éï SHADOW 8=8./δM.■M@`Éï@`Éï0RN@a╤ï SHADOW"8=8./-N.@N@a╤ï@a╤ï@bî/SN@bî;@cî<@cî@fjî..P@fjî:@h▒î -N8V *8BPROCEDURE Shadowg && displays shadow that grows PARAMETER x1,y1,x2,y2 PRIVATE x1,y1,x2,y2 x0 = x2+1 y0 = y2+2 dx = 1 dy = (y2-y1) / (x2-x1) DO WHILE x0 <> x1 .OR. y0 <> y1+2 @ x0,y0 FILL TO x2+1,y2+2 COLOR n+/n x0 = IIF(x0<>x1,x0 - dx,x0) y0 = IIF(y0<>y1+2,y0 - dy,y0) y0 = IIF(y0<y1+2,y1+2,y0) ENDDO RETURN *-- EOP: shadowg @{qÄ<@|Ä<@|Ä@╦Ä.wY@╦Ä:PROCEDURE Help @âÅ8P?*-- Activates the HELP window PARAMETER lc_var PRIVATE ALL LIKE ??_* SET CURSOR OFF *-- Select workarea and open Help dbf lc_area = ALIAS() SELECT SELECT() USE @î╬Å82? ORDER fld_name NOUPDATE && Open HELP .dbf SEEK lc_var IF FOUND() && If found show Help ln_t = 5 ln_l = 6 ln_b = 15 ln_r = 74 ON KEY LABEL F3 DO Toggle DEFINE WINDOW z_help FROM ln_t+1, ln_l+2 TO ln_b-1, ln_r-2 NONE ON ERROR lc_error=error() SAVE SCREEN TO zz_help *-- Make Help Box DO shadowg WITH ln_t, ln_l, ln_b, ln_r @ ln_t+1, ln_l+1 CLEAR TO ln_b-1, ln_r-1 @ ln_t, ln_l TO ln_b, ln_r DOUBLE ln_memline = SET("MEMO") SET MEMOWIDTH TO 65 IF MEMLINES(fld_help) > 9 @ ln_t+1,ln_r SAY CHR(24) @ ln_b-1,ln_r SAY CHR(25) ENDIF lc_string = CHR(185)+ [ Help for ] + TRIM(fld_headng) +[ ] + CHR(204) lc_message = IIF(MEMLINES(fld_help) > 9, ; "@ª╠Æ NScroll thru Help: Ctrl-Home Exit Viewing Help: Esc See Original Screen: F3?", ; "@ºⁿÆ See Original Screen: F3?" ; ) @ ln_t,CENTER(lc_string,80) SAY lc_string @ 0,0 GET fld_help OPEN WINDOW z_help MESSAGE lc_message READ SET MEMOWIDTH TO ln_memline ON ERROR ON KEY LABEL F3 RELEASE WINDOW z_help RESTORE SCREEN FROM zz_help RELEASE SCREEN zz_help ENDIF SET MESSAGE TO SET CURSOR ON USE && Close help file SELECT (lc_area) && Back to edit work area @╕εö8P?RETURN *-- EOP: HELP @╝ò -N8V *8BPROCEDURE Toggle @╛Sò8P?*-- Toggles the Help message back to the original screen SAVE SCREEN to Toggle RESTORE SCREEN FROM zz_help SET MESSAGE TO "Press any key..." mwait = INKEY(15) RESTORE SCREEN FROM Toggle RELEASE SCREEN Toggle SET MESSAGE TO "Scroll thru Help: Ctrl-Home Exit Viewing Help: Ctrl-End See Org. Screen: F3" @╟íû8P?RETURN *-- EOP: Toggle @╦╠û -N8V *8BFUNCTION Center *-- UDF to center a string. *-- lc_string = String to center *-- ln_width = Width of screen to center in *-- *-- Ex. @ 15,center(string,80) say string *-- Will center the <string> withing 80 columns PARAMETER lc_string, ln_width RETURN ((ln_width/2)-(LEN(lc_string)/2)) @╒ÿ<@╓'ÿ<@╓'ÿ@<-tl_form.cod=▓ form.def>█ builtin.def